Macromedia Multimedia Showcase 5.1/Macromedia - Multimedia Showcase 5.1 (Macromedia) (1996).ISO/pc/media/58110.dir/00119_Script_119

Text File | 1996-03-27 | 2KB | 86 lines

on startmovie
  initdone
end


on wait howlong
  delay howlong * 60
end

on adage
  global ylist
  set ylist = list(93,120,162, 190, 219, 247)
end

--
--
-- Movie & code by Jason A. Yeaman
-- Macromedia, creative services department
--

--
on init
  repeat with j = 20 to 27
    puppetsprite j, true
  end repeat
end init

on melrose
  repeat with i = 30 to 38
    if rollover(i) then
      set the visible of sprite (i - 20) to true
--      set the castnum of sprite (i - 10) to (i)
      updatestage
    else
      set the visible of sprite (i - 20) to false
--      set the castnum of sprite (i - 10) to (i - 10)
    end if
  end repeat
end

on initdone
  repeat with j = 1 to 48
    puppetsprite j, false
  end repeat
  repeat with i = 1 to 48
    set the visible of sprite (i) to true
  end repeat
  updatestage
  sound stop 1
  sound stop 2
  puppetsound 0
end initdone

on matchsprites moveme, moveto, x, y
  set the loch of sprite moveme to the loch of sprite moveto + x
  set the locv of sprite moveme to the locv of sprite moveto + y
end



on cnn
  repeat with i = 28 to 37
    if rollover(i) then
      matchsprites 38, i, 74, 13
--      set the loch of sprite 43 to -180
      exit
    end if
  end repeat
  set the loch of sprite 38 to -180
--  repeat with i = 39 to 40
--    if rollover (i) then
--      set the castnum of sprite 43 to the number of cast "white"
--      matchsprites 43, i, 54, 12
--      exit
--    end if
--  end repeat
--  repeat with i = 41 to 42
--    if rollover (i) then
--      set the castnum of sprite 43 to the number of cast "red"
--      matchsprites 43, i, 61, 12
--      exit
--    end if
--  end repeat
--  set the loch of sprite 43 to -180
end